home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / ISLARGER.LI < prev    next >
Text File  |  1993-10-16  |  190b  |  7 lines
  1. #    islarger(a,b) gives 1 if a is larger than b, 0 otherwise. It is extent
  2. #    of a > b.
  3. #    e.g. islarger(1+i, 1-i) gives 1
  4. #    See also: isless, >.
  5.  
  6. islarger(a_, b_) := issame(sign(a-b),1)
  7.